home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
program
/
swagg_m.zip
/
MISC.SWG
/
0072_Program Origin.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1994-01-27
|
218b
|
12 lines
{$X+} { Need this for easy handling of Asciiz strings }
var
parentseg : ^word;
p : pchar;
begin
parentseg := ptr(prefixseg,$16);
p := ptr(parentseg^-1,8);
writeln('I was launched by ',p);
end.